Mac-Source 1994 July/Mac-Source_July_1994.iso/Other Langs/Parallaxis_20/pi.xrf

Text File | 1991-05-02 | 3KB | 294 lines

423310825

Q pi.p
W
147 844 257 107 1
NOT 4
SCALAR 9
DIV 10
IN_CONNECTED 12
EOL 269
SEND 14
CHR 15
GREEN 272
EXCL 18
LOOP 19
CHAR 276
LAST 533
ELSE 31
WIDTH 288
SIRANDOM 33
CAP 35
UNTIL 36
STRCMP 37
WRITEREAL 39
POINTER 40
OF 43
READCARD 44
REPEAT 46
VBRANDOM 48
WRITE 49
TRUNC 50
DIM1 307
LOAD 51
WRITEBOOL 308
OR 55
ARCTAN2 57
SUM 59
SIN 61
ARCCOS 63
SIZE 64
PROCEDURE 70
F 71
REDUCE 72
SCRANDOM 329
TO 73
WRITELN 330
VECTOR 74
DEC 77
SELECTWINDOW 334
CONST 78
FLOAT 82
LINE 83
BOOLEAN 87
HALT 88
FIRST 89
X 346
OUT_LINECONNECTED 92
FALSE 93
SQRT 94
OPENWINDOW 95
TERMCH 352
OPENINPUT 98
SRRANDOM 103
INCL 360
AND 104
MOD 361
ARRAY 108
ELSIF 111
WRITECARD 113
TAN 117
LIST 119
ABS 120
FROM 124
NIL 125
CLOSEINPUT 382
SETPIXEL 126
ARCSIN 130
VIRANDOM 131
RECORD 135
OPENOUTPUT 137
COLOR 394
VAL 140
TYPE 146
VAR 403
RECEIVE 148
WITH 149
SET 153
PI 410
END 154
EXIT 411
WRITESTRING 155
FOR 159
DO 160
SYSTEM 417
STORE 161
ENDPARALLEL 165
OUT_CONNECTED 167
TRACE 424
MAX 168
NOTRACE 425
VCRANDOM 170
DISPOSE 427
WRITEINT 684
SETCOLOR 171
IF 172
CASE 174
THEN 179
IN 180
INTERVALLS 182
ARCTAN 186
READSTRING 192
ORD 193
PROPAGATE 195
PARALLEL 196
CLOSEOUTPUT 199
VRRANDOM 201
INC 203
SBRANDOM 207
EXP 208
TRUE 465
EVEN 209
WHILE 210
DEBUG 467
BY 213
RETURN 470
CONNECTION 215
CARDINAL 472
COMPUTE_PI 729
BLUE 216
NEW 222
IN_LINECONNECTED 224
BEGIN 225
READINT 227
READREAL 484
PRODUCT 230
STREQ 233
CONFIGURATION 236
BITSET 493
ODD 237
ID_NO 239
READBOOL 496
READ 241
MIN 243
LN 244
WRITEFIXPT 246
GETPIXEL 248
WINDOWSIZE 505
REAL 249
COS 251
DONE 252
RED 253
INTEGER 256

S 99
70 0 8 2
70 346 8 1
6 307 12 1
6 140 8 1
2 288 8 1
7 71 3
4 119 3 1
2 182 12 100
1 729
2 269 10 10
11 12
11 15
12 18
11 533
3 276 10
11 33
11 35
11 37
12 39
12 44
11 48
12 49
11 50
12 308
11 57
11 59
11 61
11 63
11 64
11 329
12 330
12 334
12 77
11 82
12 83
3 87 11
12 88
11 89
11 92
2 93 11 0
11 94
13 352
11 95
12 98
12 360
11 103
12 113
11 117
11 120
12 382
2 125 5 2
12 126
11 130
11 131
3 394 4
12 137
11 140
2 410 8 3
12 155
12 424
11 167
12 425
11 168
12 684
12 427
11 170
12 171
11 186
12 192
11 193
12 199
11 201
12 203
11 207
2 465 11 1
11 208
11 209
12 467
3 472 9
12 222
11 224
12 484
12 227
11 230
11 233
3 493 7
11 237
12 496
13 239
12 241
11 243
11 244
12 246
12 505
11 248
3 249 8
11 251
13 252
3 256 12

G 4
3 2 4 0 119 1 22 22 23
3 2 4 0 119 1 14 14 21
1 2 4 1 71 0 4 4 13
5 5 0 0 729 0 1 1 24

Z 6
21 21 24
19 14 21
17 13 21
14 11 13
13 6 11
10 4 13

T 12
13 0 119
11 0 12 1 100
6 0 2 0
7 394 1
10 125 0
11 0 12 0 31
9 493 6 0 31
4 249
11 472 12 0 32767
2 276
1 87
3 256

M 3
253 9 0
272 9 0
216 9 1

C 3
1 "0.0100000"
1 "NIL"
1 "3.14159"

E